home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG: Games / PC-SIG Games (PC-SIG).iso / 1314 / UNSCRAM.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-02-01  |  482 b   |  16 lines
  1. 10 '---------Unscram.Bas-----------
  2. 20 'This program will de-crypt a file
  3. 30 'encrypted with Scramble.Bas. 
  4. 40 '-------------------------------
  5. 50 INPUT "What is the name of the file to be UN-scrambled";N$
  6. 60 INPUT "What will be the new name for the UN-scrambled file";O$
  7. 70 OPEN "i",1,N$
  8. 80 OPEN "o",2,O$
  9. 90 IF EOF(1) THEN 120
  10. 100 PRINT#2,CHR$(ASC(INPUT$(1,#1))-128);
  11. 110 GOTO 90
  12. 120 CLOSE #1,#2: NAME N$ AS "killfile":KILL "killfile"
  13. 130 PRINT
  14. 135 END
  15. 140 'SYSTEM
  16.